﻿Imports System.Data.OleDb

Public Class frmInfoAsesorAtencion

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCancelar.Click
        cadenaConexBD.Close()
        Close()
    End Sub
    Private Sub frmInfoAsesorAtencion_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        cadenaConexBD.Close()
    End Sub

    Private Sub frmInfoAsesor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CargarEmpresas(cbo_empresa)
        'CargarAuditados(cbo_asesor)

        dtpInicio.Value = Today
        dtpfin.Value = Today

        ''lo primero que realizo es la limpieza de la tabla 
        'Dim limpiarTemporal As New C_querys
        'limpiarTemporal.eliminarTemporales()

    End Sub

    Private Sub btInforme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btInforme.Click
        Dim informeDelAsesor As New C_querys
        Dim insertoTemporal As New C_querys



        Dim drConsultados As OleDbDataReader

        Dim fecha_auditoria As Date
        Dim fecha_llamada As Date
        Dim numero_lote As String = ""
        Dim tipo_llamada As String = ""
        Dim auditor As String = ""
        Dim auditado As String = ""
        Dim empresa As String = ""
        Dim saludo As String = ""
        Dim empatia As String = ""
        Dim indagacion As String = ""
        Dim disposicion As String = ""
        Dim compromiso As String = ""
        Dim informacion As String = ""
        Dim comunicacion As String = ""
        Dim credibilidad As String = ""
        Dim cierre As String = ""
        Dim a_favor As String = ""
        Dim en_contra As String = ""
        Dim puntos As Double = 0
        Dim idunico_llam As String = ""
        Dim caso_llam As String = ""



        If (cbo_asesor.Text = "Seleccionar...") Then
            MsgBox("Seleccione un Asesor para el informe")
        Else
            drConsultados = informeDelAsesor.QxAsesorEntreFechas
            If drConsultados.HasRows Then
                While drConsultados.Read

                    If Not drConsultados.IsDBNull(0) Then
                        fecha_auditoria = drConsultados.GetDateTime(0)
                    End If
                    If Not drConsultados.IsDBNull(1) Then
                        fecha_llamada = drConsultados.GetDateTime(1)
                    End If
                    If Not drConsultados.IsDBNull(2) Then
                        numero_lote = drConsultados.GetString(2)
                    End If
                    If Not drConsultados.IsDBNull(3) Then
                        tipo_llamada = drConsultados.GetString(3)
                    End If
                    If Not drConsultados.IsDBNull(4) Then
                        auditor = drConsultados.GetString(4)
                    End If
                    If Not drConsultados.IsDBNull(5) Then
                        auditado = drConsultados.GetString(5)
                    End If
                    If Not drConsultados.IsDBNull(6) Then
                        empresa = drConsultados.GetString(6)
                    End If
                    If Not drConsultados.IsDBNull(7) Then
                        saludo = drConsultados.GetString(7)
                    End If
                    If Not drConsultados.IsDBNull(8) Then
                        empatia = drConsultados.GetString(8)
                    End If
                    If Not drConsultados.IsDBNull(9) Then
                        indagacion = drConsultados.GetString(9)
                    End If
                    If Not drConsultados.IsDBNull(10) Then
                        disposicion = drConsultados.GetString(10)
                    End If
                    If Not drConsultados.IsDBNull(11) Then
                        compromiso = drConsultados.GetString(11)
                    End If
                    If Not drConsultados.IsDBNull(12) Then
                        informacion = drConsultados.GetString(12)
                    End If
                    If Not drConsultados.IsDBNull(13) Then
                        comunicacion = drConsultados.GetString(13)
                    End If
                    If Not drConsultados.IsDBNull(14) Then
                        credibilidad = drConsultados.GetString(14)
                    End If
                    If Not drConsultados.IsDBNull(15) Then
                        cierre = drConsultados.GetString(15)
                    End If
                    If Not drConsultados.IsDBNull(16) Then
                        a_favor = drConsultados.GetString(16)
                    End If
                    If Not drConsultados.IsDBNull(17) Then
                        en_contra = drConsultados.GetString(17)
                    End If
                    If Not drConsultados.IsDBNull(18) Then
                        puntos = drConsultados.GetDouble(18)
                    End If
                    If Not drConsultados.IsDBNull(19) Then
                        idunico_llam = drConsultados.GetString(19)
                    End If
                    If Not drConsultados.IsDBNull(20) Then
                        caso_llam = drConsultados.GetString(20)
                    End If

                    insertoTemporal.insertarTemporal(fecha_auditoria, fecha_llamada, numero_lote, tipo_llamada, auditor, auditado, empresa, saludo, empatia, indagacion, disposicion, compromiso, informacion, comunicacion, credibilidad, cierre, a_favor, en_contra, puntos, idunico_llam, caso_llam)
                End While
                drConsultados.Close()
                cadenaConexBD.Close()
                frmReportes.ShowDialog()
            Else
                MsgBox("No hay resultados para los parámetros especificados, intentelo nuevamente.", MsgBoxStyle.Information, "Reporte")
                drConsultados.Close()
                cadenaConexBD.Close()
            End If
        End If
    End Sub

    Private Sub dtpfin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpfin.ValueChanged
        If dtpfin.Value > Today Then
            MsgBox("La fecha final del informe no puede ser mayor al día Actual")
            dtpfin.Value = Today
        ElseIf dtpfin.Value < dtpInicio.Value Then
            MsgBox("La fecha final del informe no puede ser mayor a la de inicio")
            dtpfin.Value = Today
        End If
    End Sub

    Private Sub dtpInicio_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpInicio.ValueChanged
        If dtpInicio.Value > dtpfin.Value Then
            MsgBox("La fecha de inicio del informe no puede ser mayor a la Fecha de final")
            dtpInicio.Value = dtpfin.Value
        End If
    End Sub

    Private Sub cbo_empresa_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_empresa.SelectedIndexChanged
        CargarAudiXempresa2(cbo_asesor)
        cbo_asesor.Text = "Seleccionar..."
    End Sub

End Class